home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / compile_to_c4.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  4KB  |  308 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9.  
  10.  
  11. T327 r327realloc(T327 C,T2 a1,T2 a2){
  12. T327 R=NULL;
  13. R=calloc(a2,sizeof(T0*));
  14. r327copy_from(R,C,(a1)-(1));
  15. return R;
  16. }
  17.  
  18.  
  19. void r327set_all_with(T327 C,T0* a1,T2 a2){
  20. T2 _i=0;
  21. _i=a2;
  22. while (!((_i)<(0))) {
  23. (C)[_i]=(a1);
  24. _i=(_i)-(1);
  25. }
  26. }
  27.  
  28.  
  29. T2 r327fast_index_of(T327 C,T0* a1,T2 a2){
  30. T2 R=0;
  31. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  32. R=(R)+(1);
  33. }
  34. return R;
  35. }
  36.  
  37.  
  38. void r327move(T327 C,T2 a1,T2 a2,T2 a3){
  39. T2 _i=0;
  40. /*[IF*/
  41. if((a3)==(0)){
  42. }
  43.  else if((a3)<(0)){
  44. _i=a1;
  45. while (!((_i)>(a2))) {
  46. (C)[(_i)+(a3)]=((C)[_i]);
  47. _i=(_i)+(1);
  48. }
  49. }
  50. else{
  51. _i=a2;
  52. while (!((_i)<(a1))) {
  53. (C)[(_i)+(a3)]=((C)[_i]);
  54. _i=(_i)-(1);
  55. }
  56. }
  57. /*FI]*/
  58. }
  59.  
  60.  
  61. void r327clear(T327 C,T2 a1,T2 a2){
  62. T2 _i=0;
  63. T0* _v=NULL;
  64. _i=a1;
  65. while (!((_i)>(a2))) {
  66. (C)[_i]=(_v);
  67. _i=(_i)+(1);
  68. }
  69. }
  70.  
  71.  
  72. void r327copy_from(T327 C,T327 a1,T2 a2){
  73. T2 _i=0;
  74. _i=a2;
  75. while (!((_i)<(0))) {
  76. (C)[_i]=((a1)[_i]);
  77. _i=(_i)-(1);
  78. }
  79. }
  80.  
  81.  
  82. T90 r90realloc(T90 C,T2 a1,T2 a2){
  83. T90 R=NULL;
  84. R=calloc(a2,sizeof(T0*));
  85. r90copy_from(R,C,(a1)-(1));
  86. return R;
  87. }
  88.  
  89.  
  90. void r90copy_from(T90 C,T90 a1,T2 a2){
  91. T2 _i=0;
  92. _i=a2;
  93. while (!((_i)<(0))) {
  94. (C)[_i]=((a1)[_i]);
  95. _i=(_i)-(1);
  96. }
  97. }
  98.  
  99.  
  100. T186 r186realloc(T186 C,T2 a1,T2 a2){
  101. T186 R=NULL;
  102. R=calloc(a2,sizeof(T0*));
  103. r186copy_from(R,C,(a1)-(1));
  104. return R;
  105. }
  106.  
  107.  
  108. void r186set_all_with(T186 C,T0* a1,T2 a2){
  109. T2 _i=0;
  110. _i=a2;
  111. while (!((_i)<(0))) {
  112. (C)[_i]=(a1);
  113. _i=(_i)-(1);
  114. }
  115. }
  116.  
  117.  
  118. void r186copy_from(T186 C,T186 a1,T2 a2){
  119. T2 _i=0;
  120. _i=a2;
  121. while (!((_i)<(0))) {
  122. (C)[_i]=((a1)[_i]);
  123. _i=(_i)-(1);
  124. }
  125. }
  126.  
  127.  
  128. T319 r319realloc(T319 C,T2 a1,T2 a2){
  129. T319 R=NULL;
  130. R=calloc(a2,sizeof(T0*));
  131. r319copy_from(R,C,(a1)-(1));
  132. return R;
  133. }
  134.  
  135.  
  136. void r319copy_from(T319 C,T319 a1,T2 a2){
  137. T2 _i=0;
  138. _i=a2;
  139. while (!((_i)<(0))) {
  140. (C)[_i]=((a1)[_i]);
  141. _i=(_i)-(1);
  142. }
  143. }
  144.  
  145.  
  146. T309 r309realloc(T309 C,T2 a1,T2 a2){
  147. T309 R=NULL;
  148. R=calloc(a2,sizeof(T0*));
  149. r309copy_from(R,C,(a1)-(1));
  150. return R;
  151. }
  152.  
  153.  
  154. void r309copy_from(T309 C,T309 a1,T2 a2){
  155. T2 _i=0;
  156. _i=a2;
  157. while (!((_i)<(0))) {
  158. (C)[_i]=((a1)[_i]);
  159. _i=(_i)-(1);
  160. }
  161. }
  162.  
  163.  
  164. T224 r224realloc(T224 C,T2 a1,T2 a2){
  165. T224 R=NULL;
  166. R=calloc(a2,sizeof(T0*));
  167. r224copy_from(R,C,(a1)-(1));
  168. return R;
  169. }
  170.  
  171.  
  172. void r224clear_all(T224 C,T2 a1){
  173. T2 _i=0;
  174. T0* _v=NULL;
  175. _i=a1;
  176. while (!((_i)<(0))) {
  177. (C)[_i]=(_v);
  178. _i=(_i)-(1);
  179. }
  180. }
  181.  
  182.  
  183. void r224copy_from(T224 C,T224 a1,T2 a2){
  184. T2 _i=0;
  185. _i=a2;
  186. while (!((_i)<(0))) {
  187. (C)[_i]=((a1)[_i]);
  188. _i=(_i)-(1);
  189. }
  190. }
  191.  
  192.  
  193. T42 r42realloc(T42 C,T2 a1,T2 a2){
  194. T42 R=NULL;
  195. R=calloc(a2,sizeof(T0*));
  196. r42copy_from(R,C,(a1)-(1));
  197. return R;
  198. }
  199.  
  200.  
  201. void r42set_all_with(T42 C,T0* a1,T2 a2){
  202. T2 _i=0;
  203. _i=a2;
  204. while (!((_i)<(0))) {
  205. (C)[_i]=(a1);
  206. _i=(_i)-(1);
  207. }
  208. }
  209.  
  210.  
  211. T6 r42equal_like(T0* a1,T0* a2){
  212. T6 R=0;
  213. /*[IF*/
  214. /*AF*//*AF*/if((a1)==((void*)(a2))){
  215. R=1;
  216. }
  217.  else if(((a1)==((void*)(NULL)))||((a2)==((void*)(NULL)))){
  218. }
  219. else{
  220. R=r7is_equal(((T7*)a1),a2);
  221. }
  222. /*FI]*/
  223. return R;
  224. }
  225.  
  226.  
  227. T2 r42fast_index_of(T42 C,T0* a1,T2 a2){
  228. T2 R=0;
  229. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  230. R=(R)+(1);
  231. }
  232. return R;
  233. }
  234.  
  235.  
  236. void r42copy_from(T42 C,T42 a1,T2 a2){
  237. T2 _i=0;
  238. _i=a2;
  239. while (!((_i)<(0))) {
  240. (C)[_i]=((a1)[_i]);
  241. _i=(_i)-(1);
  242. }
  243. }
  244.  
  245.  
  246. T2 r42index_of(T42 C,T0* a1,T2 a2){
  247. T2 R=0;
  248. while (!(((R)>(a2))||(r42equal_like(a1,(C)[R])))) {
  249. R=(R)+(1);
  250. }
  251. return R;
  252. }
  253.  
  254.  
  255. T81 r81realloc(T81 C,T2 a1,T2 a2){
  256. T81 R=NULL;
  257. R=calloc(a2,sizeof(T0*));
  258. r81copy_from(R,C,(a1)-(1));
  259. return R;
  260. }
  261.  
  262.  
  263. void r81copy_from(T81 C,T81 a1,T2 a2){
  264. T2 _i=0;
  265. _i=a2;
  266. while (!((_i)<(0))) {
  267. (C)[_i]=((a1)[_i]);
  268. _i=(_i)-(1);
  269. }
  270. }
  271.  
  272.  
  273. T236 r236realloc(T236 C,T2 a1,T2 a2){
  274. T236 R=NULL;
  275. R=calloc(a2,sizeof(T0*));
  276. r236copy_from(R,C,(a1)-(1));
  277. return R;
  278. }
  279.  
  280.  
  281. void r236copy_from(T236 C,T236 a1,T2 a2){
  282. T2 _i=0;
  283. _i=a2;
  284. while (!((_i)<(0))) {
  285. (C)[_i]=((a1)[_i]);
  286. _i=(_i)-(1);
  287. }
  288. }
  289.  
  290.  
  291. T229 r229realloc(T229 C,T2 a1,T2 a2){
  292. T229 R=NULL;
  293. R=calloc(a2,sizeof(T0*));
  294. r229copy_from(R,C,(a1)-(1));
  295. return R;
  296. }
  297.  
  298.  
  299. void r229copy_from(T229 C,T229 a1,T2 a2){
  300. T2 _i=0;
  301. _i=a2;
  302. while (!((_i)<(0))) {
  303. (C)[_i]=((a1)[_i]);
  304. _i=(_i)-(1);
  305. }
  306. }
  307.  
  308.